#!/usr/bin/perl -wc

package RFCMail::ESMTP::Server::Hansard;

use strict;


sub command {
    my $self = shift;
    my ($line) = @_;
    $self->hansard("C: $line");
    return ($self->SUPER::command(@_));
}


sub data_finish {
    my $self = shift;
    $self->hansard("C: (".$self->{state}->{data_lines}." lines of data)");
    return ($self->SUPER::data_finish(@_));
}


sub reply_lines {
    my $self = shift;
    $self->hansard(map("S: $_", @_));
    $self->SUPER::reply_lines(@_);
}


1;
